100 OPEN8,8,8,"TOKENS,P,W"
110 PRINT#8,CHR$(1)CHR$(8);
120 RM$=":"+CHR$(143)+"  $":Z$=CHR$(0):M=2049:FORT=128TO255
130 TL=(T AND 15)+48:IFTL>57THENTL=TL+7
140 TH=INT(T/16)+48:IFTH>57THENTH=TH+7
150 M=M+13
160 ML=M AND 255:MH=INT(M/256)
170 PRINT#8,CHR$(ML)CHR$(MH)CHR$(T)Z$+CHR$(T)RM$+CHR$(TH)CHR$(TL)Z$;
180 NEXT:PRINT#8,Z$Z$;
190 CLOSE8:END